pcworld online logo

MET▌N KUTUSU AKT▌FSE...

WINDOWS aktif oldu≡unda iτerdi≡i metnin tⁿmⁿ seτilen metin kutular² gibi hayat²m²z² kolayla■t²racak bir τok gⁿzel ÷zellik bulundurur. Siz de bu ÷zellikleri programlar²n²za koydu≡unuzda program²n²z²n kullan²lmas²n² daha kolay bir hale getirirsiniz. Bir metin kutusunun iτeri≡inin TAB tu■uyla veya ba■ka bir ■ekilde aktif olmas²yla seτilmesini, a■a≡²daki kodlar² metin kutusunun Got_Focus ÷zelli≡ine ekleyerek sa≡layabilirsiniz.

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

E≡er projenizde bir τok metin kutusu bulunuyorsa yukar²daki iki sat²r² her metin kutusuna yazman²z zor olacakt²r. Bunun iτin General - Declarations k²sm²na projenin her taraf²ndan τa≡²r²labilecek a■a≡²daki altyordam² yaz²p bu altyordam² herhangi bir metin kutusunun Got_Focus ÷zelli≡inden SelAllText yazarak τa≡²rman²z daha uygun olacakt²r.

Public Sub SelAllText()
Screen, ActiveControl.SelStart = 0
Screen.ActiveControl.SelLength = Len(Screen,ActiveControl.Text)
EndSub